library(data.table)
Registered S3 method overwritten by 'data.table':
  method           from
  print.data.table     
data.table 1.14.8 using 1 threads (see ?getDTthreads).  Latest news: r-datatable.com
**********
This installation of data.table has not detected OpenMP support. It should still work but in single-threaded mode.
This is a Mac. Please read https://mac.r-project.org/openmp/. Please engage with Apple and ask them for support. Check r-datatable.com for updates, and our Mac instructions here: https://github.com/Rdatatable/data.table/wiki/Installation. After several years of many reports of installation problems on Mac, it's time to gingerly point out that there have been no similar problems on Windows or Linux.
**********
library(tidyr)
# Data of Wave 5


WV5_data <- readRDS("/Users/cristinacandido/Documents/Github/risk_wvs/data/WVS/F00007944-WV5_Data_R_v20180912.rds")
# Convert WV5_data-object in data.frame 
WV5_data_df <- as.data.frame(WV5_data)

# show first five columns
head(WV5_data_df[, 1:5])
# Data of Wave 6
WV6_data <- load("/Users/cristinacandido/Documents/Github/risk_wvs/data/WVS/WV6_Data_R_v20201117.rdata")
WV6_data <- WV6_Data_R_v20201117
print(WV6_data)
# Convert WV6_data-object in data.frame 
WV6_data_df <- as.data.frame(WV6_data)

# show first five columns
head(WV6_data_df[, 1:5])

WV6_data_df
print(WV5_data_df)
print(WV6_data_df)

library(dplyr)

WV5_data <- WV5_data_df %>%
  rename(risk = V86, sex = V235, age = V237)
WV5_data



WV5_data <- WV5_data %>%
  select(risk, sex, age)
WV5_data
NA
NA
NA
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CmxpYnJhcnkoZGF0YS50YWJsZSkKbGlicmFyeSh0aWR5cikKYGBgCgpgYGB7cn0KIyBEYXRhIG9mIFdhdmUgNQoKCldWNV9kYXRhIDwtIHJlYWRSRFMoIi9Vc2Vycy9jcmlzdGluYWNhbmRpZG8vRG9jdW1lbnRzL0dpdGh1Yi9yaXNrX3d2cy9kYXRhL1dWUy9GMDAwMDc5NDQtV1Y1X0RhdGFfUl92MjAxODA5MTIucmRzIikKCmBgYAoKYGBge3J9CiMgQ29udmVydCBXVjVfZGF0YS1vYmplY3QgaW4gZGF0YS5mcmFtZSAKV1Y1X2RhdGFfZGYgPC0gYXMuZGF0YS5mcmFtZShXVjVfZGF0YSkKCiMgc2hvdyBmaXJzdCBmaXZlIGNvbHVtbnMKaGVhZChXVjVfZGF0YV9kZlssIDE6NV0pCmBgYAoKYGBge3J9CiMgRGF0YSBvZiBXYXZlIDYKV1Y2X2RhdGEgPC0gbG9hZCgiL1VzZXJzL2NyaXN0aW5hY2FuZGlkby9Eb2N1bWVudHMvR2l0aHViL3Jpc2tfd3ZzL2RhdGEvV1ZTL1dWNl9EYXRhX1JfdjIwMjAxMTE3LnJkYXRhIikKV1Y2X2RhdGEgPC0gV1Y2X0RhdGFfUl92MjAyMDExMTcKcHJpbnQoV1Y2X2RhdGEpCmBgYAoKCmBgYHtyfQojIENvbnZlcnQgV1Y2X2RhdGEtb2JqZWN0IGluIGRhdGEuZnJhbWUgCldWNl9kYXRhX2RmIDwtIGFzLmRhdGEuZnJhbWUoV1Y2X2RhdGEpCgojIHNob3cgZmlyc3QgZml2ZSBjb2x1bW5zCmhlYWQoV1Y2X2RhdGFfZGZbLCAxOjVdKQoKV1Y2X2RhdGFfZGYKYGBgCgpgYGB7cn0KcHJpbnQoV1Y1X2RhdGFfZGYpCnByaW50KFdWNl9kYXRhX2RmKQpgYGAKYGBge3J9CgpsaWJyYXJ5KGRwbHlyKQoKV1Y1X2RhdGEgPC0gV1Y1X2RhdGFfZGYgJT4lCiAgcmVuYW1lKHJpc2sgPSBWODYsIHNleCA9IFYyMzUsIGFnZSA9IFYyMzcpCldWNV9kYXRhCgoKCldWNV9kYXRhIDwtIFdWNV9kYXRhICU+JQogIHNlbGVjdChyaXNrLCBzZXgsIGFnZSkKV1Y1X2RhdGEKCgoKYGBgCgo=